// Patron J2EE
// Bussines Delegate
// 
// Roles:
//
// cl -> client
// bd -> bussinesDelegate
// ls -> lookupService
// bs -> bussinessService


getdb($1)
DP[cl,bd,ls,bs] = {uses[cl,bd]; uses[bd,bs]; uses[bd,ls]}

// Se excluyen las librerias del API Java API 
DP_java = DP [&0 =~ "java.*"] 
DP = DP - DP_java
DP_java = DP [&1 =~ "java.*"]
DP = DP - DP_java
DP_java = DP [&2 =~ "java.*"]
DP = DP - DP_java
DP_java = DP [&3 =~ "java.*"]
DP = DP - DP_java

putdb($2,{"DP"})
